(locate): Disable undo in *Locate* buffer.

diff --git a/lisp/locate.el b/lisp/locate.el
index 5b61ed522e9f805cbdcb664555d308feef3e206b..5934a572d4d0396267b30f0c86dc56dcd83867ee 100644 (file)
--- a/lisp/locate.el
+++ b/lisp/locate.el
@@ -229,7 +229,8 @@ With prefix arg, prompt for the locate command to run."
     (save-window-excursion
       (set-buffer (get-buffer-create locate-buffer-name))
       (locate-mode)
-      (let ((inhibit-read-only t))
+      (let ((inhibit-read-only t)
+           (buffer-undo-list t))
        (erase-buffer)
 
        (setq locate-current-filter filter)